home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / border1.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  59 lines
  1. 10 REM ^^^^^^^^^^^^^^^^^^^^^^
  2. 100 REM 
  3. 110 FADE
  4. 120 SYNCHRO
  5. 130 PALETTE
  6. 140 REM 
  7. 150 REM { Load a picture... }
  8. 160 REM 
  9. 170 ERASE
  10. 180 RESERVE
  11. 190 CLS
  12. 20 REM 
  13. 200 VARNAME
  14. 210 IF
  15. 220 ELSE
  16. 230 REM 
  17. 240 REM { Build image... }
  18. 250 REM 
  19. 260 RESERVE
  20. 270 VARNAME
  21. 280 VARNAME
  22. 290 COPY
  23. 30 REM  Simple bottom border
  24. 300 COPY
  25. 310 REM 
  26. 320 REM { Save and set hardware screen pointers... }
  27. 330 REM 
  28. 340 HIDE
  29. 350 POKE
  30. 360 GET PALETTE
  31. 370 VARNAME
  32. 380 VARNAME
  33. 390 DREG
  34. 40 REM   removal program by
  35. 400 CALL
  36. 410 LOKE
  37. 420 LOKE
  38. 430 REM 
  39. 440 REM { Some commands which use interrupts may crash system ie FADE etc... }
  40. 450 REM { Your routines can go in here... }
  41. 460 REM 
  42. 470 CLEAR KEY
  43. 480 WAIT KEY
  44. 490 REM 
  45. 50 REM      Ben of FRS!
  46. 500 REM { Restore old pointers... }
  47. 510 REM 
  48. 520 DREG
  49. 530 CALL
  50. 540 LOKE
  51. 550 LOKE
  52. 560 POKE
  53. 570 DEFAULT
  54. 580 END
  55. 60 REM      written for
  56. 70 REM    STOSSER Disk mag
  57. 80 REM 
  58. 90 REM ^^^^^^^^^^^^^^^^^^^^^^
  59.